home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / Functions Part2 / card_3960.txt < prev    next >
Text File  |  1989-08-04  |  2KB  |  103 lines
  1. -- card: 3960 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2687
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   put the short name of the target
  9. end mouseUp
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 8003
  15. -- rect: left=48 top=153 right=175 bottom=148
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 3
  20. -- text size: 9
  21. -- style flags: 0
  22. -- line height: 12
  23. -- part name: test button
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   put the target into msg
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 8003
  34. -- rect: left=48 top=179 right=201 bottom=148
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 0
  41. -- line height: 12
  42. -- part name: card 1
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   push cd
  46.   get the short name of the target
  47.   go it
  48.   pop cd
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 4 (button)
  54. -- low flags: 00
  55. -- high flags: 8003
  56. -- rect: left=150 top=179 right=201 bottom=250
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 3
  61. -- text size: 9
  62. -- style flags: 0
  63. -- line height: 12
  64. -- part name: card 2
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   push cd
  68.   get the short name of the target
  69.   go it
  70.   pop cd
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 5 (button)
  76. -- low flags: 00
  77. -- high flags: 8003
  78. -- rect: left=252 top=179 right=201 bottom=352
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 3
  83. -- text size: 9
  84. -- style flags: 0
  85. -- line height: 12
  86. -- part name: Home
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   push cd
  90.   get the short name of the target
  91.   go it
  92.   pop cd
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part contents for background part 8
  98. ----- text -----
  99. the target
  100.  
  101. -- part contents for background part 18
  102. ----- text -----
  103. Returns the name of the object that received a message.